home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / novia / scripts / edit_user.nsl < prev   
Text File  |  1999-12-06  |  11KB  |  145 lines
  1. USER = LOADUSER(ARGSTRING)
  2.  
  3. MENU_MAIN = MENU(MENUTAG_COLS, 2, MENUTAG_AUTOFORMAT,
  4.     PRINT("User account number",        USER->USERID),                NULL,
  5.     PRINT("User IP number",                USER->USERIP),                NULL,
  6.     NULL,                                                                        NULL,
  7.     LINK("Exit",                             MENU_EXIT),                    NULL,
  8.     NULL,                                                                        NULL,
  9.     FIELD("Username",                        USER->USERNAME),            NULL,
  10.     FIELD("Realname",                        USER->REALNAME),            NULL,
  11.     FIELD("Address",                        USER->ADDRESS),            NULL,
  12.     FIELD("City",                            USER->CITY),                NULL,
  13.     FIELD("Postal Code",                    USER->POSTAL),                FIELD("Phone verification",    USER->PHONEVERIFICATION),
  14.     FIELD("Country",                        USER->COUNTRY),            FIELD("Voica phone number#",    USER->VOICENO),
  15.     FIELD("local directory",            USER->LOCALDIR),            FIELD("Modem  data number#",    USER->DATANO),
  16.     FIELD("UUCP username",                USER->UUCPNAME),            FIELD("FAX    data number#",    USER->FAXNO),
  17.     FIELD("UUCP Forward to",            USER->UUCPFWDADDRESS),    FIELD("Sex",                            USER->SEX),
  18.     FIELD("Access",                        USER->ACCESS),                FIELD("Edit password",            USER->PASSWORD),
  19.     FIELD("Access group",                USER->ACCESSGROUP),        LINK("Credit/balance",             MENU_CREDIT),
  20.     FIELD("Users Birthday",                USER->BIRTHDAY),            LINK("Netware support",            MENU_NETWORK),
  21.     FIELD("Users first call",            USER->FIRSTCALL),            LINK("Limits/ration flags",    MENU_LIMITS),
  22.     FIELD("Users last call",            USER->LASTCALL),            LINK("Privileg/Security",        MENU_SECURITY),
  23.     NULL,                                                                        LINK("Preferences/term",        MENU_TERM),
  24.     FIELD("Expiration date",            USER->EXPIRATIONDATE),    NULL,
  25.     FIELD("Expiration days",            USER->EXPIRATIONDAYS),    LINK("KILL THIS ACCOUNT",        MENU_KILLACCOUNT),
  26.     FIELD("Banner",                        USER->BANNER),                NULL,
  27. )
  28.  
  29. MENU_CREDIT = MENU(MENUTAG_COLS, 3, MENUTAG_AUTOFORMAT,
  30.     PRINT("User account number",        USER->USERID),                PRINT("Handle",                        USER->USERNAME),                NULL,
  31.     PRINT("User IP number",                USER->USERIP),                NULL,                                                                            NULL,
  32.     NULL,                                                                        NULL,                                                                            NULL,
  33.     LINK("Exit",                            MENU_EXIT),                    FIELD("Can send OLMs",                USER->SENDOLMS),                FIELD("unlimited fi. credits",    USER->UNLIMITFILES),
  34.     LINK("Main menu",                        MENU_MAIN),                    FIELD("Can send MEGA OLMs",        USER->SENDMEGAOLMS),            FIELD("unlimited by. credits",    USER->UNLIMITBYTES),
  35.     NULL,                                                                        FIELD("Can use broadcast OLM",    USER->BROADCASTOLMS),        FIELD("AutoCallBack @login",        USER->CALLBACK),
  36.     FIELD("SYSTEM OPERATOR",            USER->SYSOP),                FIELD("Can use userchat",            USER->USERCHAT),                FIELD("TimeLock exempt",            USER->TIMELOCK),
  37.     FIELD("Send EMails",                    USER->SENDEMAILS),        FIELD("Can use multichat",            USER->MULTICHAT),                FIELD("Add new vote topics",        USER->ADDVOTES),
  38.     FIELD("Receive EMails",                USER->RECEIVEEMAILS),    FIELD("NSL level 1",                    USER->NSLLEVEL1),                FIELD("Add new vote choices",        USER->ADDCHOICES),
  39.     FIELD("Set mail expiration",        USER->MAILEXPIRATION),    FIELD("NSL level 2",                    USER->NSLLEVEL2),                FIELD("Kill/edit vote topic",        USER->EDITVOTES),
  40.     FIELD("Add mailing list",            USER->ADDMAILINGLIST),    FIELD("Relogin",                        USER->RELOGIN),                FIELD("Edit Handle",                    USER->EDITHANDLE),
  41.     FIELD("Add msg mailinglist",        USER->CANWRITEMAILLIST) FIELD("Multi login",                    USER->MULTILOGIN),            FIELD("Edit name, bday, sex",        USER->EDITNAME),
  42.     TEXT("reserved1"),                                                    TEXT("reserved10"),                                                        FIELD("Edit address, st/zip",        USER->EDITADDRESS),
  43.     TEXT("reserved2"),                                                    FIELD("Alias msg authors",            USER->ALIASMSGS),                FIELD("Edit voice phone#",            USER->EDITVOICENO),
  44.     TEXT("reserved3"),                                                    FIELD("Adopt orphans",                USER->ADOPTORPHANS),            FIELD("Edit data phone#",            USER->EDITDATANO),
  45.     TEXT("reserved4"),                                                    FIELD("Read private msgs",            USER->READPRIVATEMAILS),    FIELD("Edit FAX phone#",            USER->EDITFAXNO),
  46.     TEXT("reserved5"),                                                    FIELD("Kill/Edit any files",        USER->EDITANYFILES),            FIELD("Allow banner",                USER->ALLOWBANNER),
  47.     TEXT("reserved6"),                                                    FIELD("Kill/Edit own files",        USER->EDITOWNFILES),            FIELD("Use TermLink",                USER->USETERMLINK),
  48.     TEXT("reserved7"),                                                    FIELD("Skip file validation",        USER->SKIPFILEVALIDATION),    FIELD("Port monitoring",            USER->PORTMONITOR),
  49.     FIELD("Use Forward mail",            USER->MAILFORWARD),        FIELD("Write anonymously",            USER->WRITEANONYMOUS),        FIELD("Alarm sysop @logon",        USER->ALARMSYSOP),
  50.     TEXT("reserved8"),                                                    FIELD("Trace anonymous",            USER->TRACEANONYMOUS),        FIELD("Open screen @logon",        USER->OPENSCREEN),
  51.     TEXT("reserved9"),                                                    FIELD("Private messages",            USER->WRITEPRIVATEMAILS),    FIELD("Open capture @logon",        USER->CAPTURING),
  52.     TEXT("Use the UserList"),                                            FIELD("Conference control",        USER->CONFERENCECONTROL),    FIELD("May page the sysop",        USER->SYSOPPAGEING),
  53. )
  54.  
  55. MENU_LIMITS = MENU(MENUTAG_COLS, 2, MENUTAG_AUTOFORMAT,
  56.     PRINT("User account number",        USER->USERID),                PRINT("Handle",                        USER->USERNAME),
  57.     PRINT("User IP number",                USER->USERIP),                NULL,
  58.     NULL,                                                                        FIELD("Costs per call"                USER->COSTSPERDAY                ),
  59.     LINK("Exit",                            MENU_EXIT),                    FIELD("Costs per Minute"            USER->COSTSPERMINUTE            ),
  60.     LINK("Main menu",                        MENU_MAIN),                    FIELD("Costs per KB"                    USER->COSTSPERKB                ),
  61.     NULL,                                                                        FIELD("Case Zone"                        USER->CASEZONE                    ),
  62.     FIELD("Uploads today",                USER->UPLOADTODAY),        FIELD("Total tele. costs"            USER->TOTALTELCOSTS            ),
  63.     FIELD("Uploads this months",        USER->UPLOADMONTH),        FIELD("Total credits"                USER->TOTALCREDITS            ),
  64.     FIELD("Total uploads",                USER->TOTALUPLOADS),        FIELD("Public msgs/call"            USER->PUBLICMSGSCALL            ),
  65.     FIELD("Downloads today",            USER->DOWNLOADTODAY),    FIELD("Public msgs/day"                USER->PUBLICMSGSDAY            ),
  66.     FIELD("Downloads this month",        USER->DOWNLOADMONTH),    FIELD("Public msgs/week"            USER->PUBLICMSGSWEEK            ),
  67.     FIELD("Total downloads",            USER->TOTALDOWNLOADS),    FIELD("Public msgs/month"            USER->PUBLICMSGSMONTH        ),
  68.     FIELD("Bytes download Today",        USER->BYTESTODAY),        FIELD("Total public msgs"            USER->TOTALPOSTS                ),
  69.     FIELD("Bytes download month",        USER->BYTESMONTH),        FIELD("Private msgs/call"            USER->PRIVATEMSGSCALL        ),
  70.     FIELD("Total bytes download",        USER->TOTALBYTES),        FIELD("Private msgs/day"            USER->PRIVATEMSGSDAY            ),
  71.     FIELD("Byte credits",                USER->BYTECREDITS),        FIELD("Private msgs/week"            USER->PRIVATEMSGSWEEK        ),
  72.     FIELD("File credits",                USER->FILECREDITS),        FIELD("Private msgs/month"            USER->PRIVATEMSGSMONTH        ),
  73.     FIELD("Calls today",                    USER->CALLSTODAY),        FIELD("Total private msgs"            USER->TOTALEMAILS                ),
  74.     FIELD("Time today",                    USER->TIMETODAY),            FIELD("OLMs per call"                USER->OLMSCALL                    ),
  75.     FIELD("Total Time",                    USER->TIMETOTAL),            FIELD("OLMs per day"                    USER->OLMSDAY                    ),
  76.     NULL,                                                                        FIELD("OLMs per week"                USER->OLMSWEEK                    ),
  77.     NULL,                                                                        FIELD("OLMs per month"                USER->OLMSMONTH                ),
  78.     NULL,                                                                        FIELD("Total OLMs"                    USER->TOTALOLMS),
  79.  
  80.  
  81. )
  82.     
  83. MENU_SECURITY = MENU(MENUTAG_COLS, 2, MENUTAG_AUTOFORMAT,
  84.     PRINT("User account number",        USER->USERID),                PRINT("Handle",                        USER->USERNAME),
  85.     PRINT("User IP number",                USER->USERIP),                NULL,
  86.     NULL,                                                                        NULL,
  87.     LINK("Exit",                            MENU_EXIT),                    NULL,
  88.     LINK("Main menu",                        MENU_MAIN),                    NULL,
  89.     NULL,                                                                        NULL,
  90.     FIELD("Network aliases",            USER->NETWORKALIASES),    FIELD("Calls/day",                    USER->CALLSPERDAY),
  91.     FIELD("File credit ratio 1",        USER->FILECREDITRATIO1),FIELD("Min per call",                USER->MINSPERCALL),
  92.     FIELD("Byte credit ratio 1",        USER->BYTECREDITRATIO1),FIELD("Mins per day",                USER->MINSPERDAy),
  93.     FIELD("File credit ratio 2",        USER->FILECREDITRATIO2),FIELD("Mins idle",                    USER->MINSIDLE),
  94.     FIELD("Byte credit ratio 2",        USER->BYTECREDITRATIO2),FIELD("Messages/call",                USER->MSGSPERCALL),
  95.     FIELD("File credit ratio 3",        USER->FILECREDITRATIO3),FIELD("Feedback per call",            USER->FBPERCALL),
  96.     FIELD("Byte credit ratio 3",        USER->BYTECREDITRATIO3),FIELD("Editor lines",                USER->EDITORLINES),
  97.     FIELD("File credit ratio 4",        USER->FILECREDITRATIO4),FIELD("Maximum emails",                USER->MAXEMAILS),
  98.     FIELD("Byte credit ratio 4",        USER->BYTECREDITRATIO4),FIELD("Inactivity days",            USER->INACTIVDAYS),
  99.     FIELD("File credit ratio 5",        USER->FILECREDITRATIO5),FIELD("Lines per signature",        USER->LINESPERSIG),
  100.     FIELD("Byte credit ratio 5",        USER->BYTECREDITRATIO5),FIELD("Daily pfile minutes",        USER->DAILYPFILESMIN),
  101.     FIELD("File credit ratio 6",        USER->FILECREDITRATIO6),FIELD("Send log to user#",            USER->SENDLOGTOUSER),
  102.     FIELD("Byte credit ratio 6",        USER->BYTECREDITRATIO6),NULL
  103. )
  104.  
  105. MENU_TERM = MENU(MENUTAG_COLS, 2, MENUTAG_AUTOFORMAT,
  106.     PRINT("User account number",        USER->USERID),                PRINT("Handle",                        USER->USERNAME),
  107.     PRINT("User IP number",                USER->USERIP),                NULL,
  108.     NULL,                                                                        NULL,
  109.     LINK("Exit",                            MENU_EXIT),                    NULL,
  110.     LINK("Main menu",                        MENU_MAIN),                    NULL,
  111.     NULL,                                                                        NULL,
  112.     FIELD("Logon macro",                    USER->LOGONMACRO),        NULL,
  113.     FIELD("Control-E macro",            USER->CTRLEMACRO),        NULL,
  114.     FIELD("Control-F macro",            USER->CTRLFMACRO),        FIELD("Private Name",                USER->PRIVATENAME),
  115.     FIELD("Respose pausing",            USER->RESPOSEPAUSING),    FIELD("Private Age",                    USER->PRIVATEAGE),
  116.     FIELD("Default protocol",            USER->TRANSFERPROTOCOL) FIELD("Private Address",            USER->PRIVATENAME),
  117.     FIELD("Help level",                    USER->HELPLEVEL),            FIELD("Private Voice",                USER->PRIVATEVOICE),
  118.     FIELD("Time format",                    USER->TIMEFORMAT),        FIELD("Private Data",                USER->PRIVATEDATA),
  119.     FIELD("Date format",                    USER->DATEFORMAT),        FIELD("Private FAX",                    USER->PRIVATEFAX),
  120.     FIELD("Text locale",                    USER->LOCALE),                FIELD("Yank ARCHIVE method",        USER->ARCMETHOD),
  121.     FIELD("Yank EOL sequence",            USER->EOLSEQUENCE),        FIELD("Graphics set",                USER->GRAPHICSSET),
  122.     FIELD("Computer type",                USER->COMPUTERTYPE),        FIELD("Time zone",                    USER->TIMEZONE),
  123.     FIELD("Auto hide/muffle",            USER->AUTOHIDE),            FIELD("Mail box forward to",        USER->MAILFORWARD),
  124.     FIELD("Mail box open",                USER->MAILBOXOPEN),        FIELD("Mail copy forward to",        USER->MAILCOPY),
  125.     NULL,                                                                        FIELD("Forward uucp-mails to",    USER->UUCPFWDADDRESS),
  126.     FIELD("ANSI support",                USER->ANSISUPPORT),        FIELD("ANSI tabs",                    USER->ANSITABS),
  127.     FIELD("ANSI colors",                    USER->ANSICOLORS),        FIELD("Line feeds",                    USER->LINEFEEDS),
  128.     FIELD("Screen width",                USER->SCREENWIDTH),        FIELD("Screen height",                USER->SCREENHEIGHT),
  129. )
  130.  
  131. MENU_EXIT = MENU(MENUTAG_COLS, 3,
  132.     NULL, NULL, NULL,
  133.     NULL, PRINT("Save changes", NULL), NULL,
  134.     NULL, NULL, NULL,
  135.     RETURN("Save",        TRUE),
  136.     RETURN("Exit without save",        FALSE),
  137.     LINK("Cancel"                            MENU_MAIN)
  138. )
  139.  
  140.  
  141. JUMP MENU_MAIN
  142.  
  143. IF MENU_EXIT = TRUE THEN SAVEUSER(USER)
  144.  
  145. EXIT